;---------------------------------------
;Menu system
;written on 31.8.1994 by Brush/Elysium
;(c) 1994 Elysium dezign.
;
;this copy for: Krzysztof Dabrowski
;---------------------------------------
;This menu system was done as an repla-
;cement of old TCD menu system, ripped
;and used so often nowdays.
;Now all happy owners of this menu are
;able to use it in all modded packers
;and so on in much more flexible way
;than the old one.
;---------------------------------------
;-this progy reads directory to ram and
; make a bit of order in it (you surely
; know how messed is directory file wit-
; hout any filtering).
;-directory routine can be extracted and
; used for any other purpose.
;-maximum number of files on disc is $90
; so buffer size (the 'buf' label) is
; $1200.
;-you can ofcourse use all wildcards
; (*,?) and patterns (prog*,d?pa), just
; put them into the dir name just after
; ':'! ('name' label).
;-all selected names are transfered to
; the next buffer ('bnames' label) and
; are written 'one after another'. Sho-
; rter names are enlarged to full $10 by
; puting $a0 after them. It has no inf-
; luence on the load/save process, exc-
; ept that now all names has the same
; lenght ($10).
;-selected names buffer is max $0900
; long
;-if no names selected, the proggy re-
; turns to the menu.
;-all texts of the menus are standard
; ASCII-texts and can be easly prepared
; with one of those board-gfx painters
; (aspecialy Screen ed.&conv.2.0/<c> but
;  you can use Dpaint too).
;-the number of selected files is stored
; in a label 'ilewyb'.
;---------------------------------------
;Directory foramat looks like this:
;1.header line:
;   '"the name of disc" id123@@@@@@12'
;          ^              ^    ^    ^
;        disc name      discid     
;                                  
;                         not used  
;                        blocks free
;2.file line:
;
;   '12 "the file name   " prg c@@@@@'
;    ^         ^            ^  ^  ^
;file len.  filename    extens.  
;                                  
;                    lenght of name 
;                                   
;                               unused
;3.The end of directory is marked with
;  double $ff on the file len. position.
;---------------------------------------

dst      = $fb
put      = $fd
buf      = $2000
bnames   = buf+$1300
okno     = $079a


         *= $0800

         lda #$08
         sta device

menu     jsr cls
         lda #$00
         sta $d011
         ldx #<mtx
         ldy #>mtx
         jsr print
         lda #$1b
         sta $d011
gob2     jsr $ffe4
         beq gob2
         ldx #$05
g36      cmp gkod,x
         beq gkocz
         dex
         bpl g36
         jmp gob2
gkocz    txa
         asl a
         tax
         lda gskok,x
         sta gum
         inx
         lda gskok,x
         sta gum+1
         jmp $1000
gum      = *-2

;---------------------------------------

gkod     .byte $85,$86,$87,$8b,$88,$8c

;---------------------------------------

gskok    .word rere,f3,f5,f6,f7,f8

;---------------------------------------

f3       jsr cls
         lda #$00
         sta $d011
         ldx #<itx
         ldy #>itx
         jsr print
         lda #$1b
         sta $d011
         jsr $ffe4
         beq *-3
         cmp #$20
         bne *-7
         jmp menu

;---------------------------------------

f5       ldx #$27
         lda #$01
w1       sta $db98,x
         dex
         bpl w1
         lda #$00
         sta $0799
         ldx #$26
         jsr input
         lda dlug
         beq d1
         lda device
         jsr $ffb1
         lda #$6f
         jsr $ff93
         ldy #$00
ej2      cpy dlug
         beq ej1
         lda tbuf,y
         jsr $ffa8
         iny
         jmp ej2
ej1      lda #$0d
         jsr $ffa8
         jsr $ffae
d1       ldx #$27
         lda #$20
         sta $0798,x
         dex
         bpl *-4
         jmp gob2

;---------------------------------------
         ;place your own save depacker
         ;routine.....

f6       jmp menu

;---------------------------------------

f7       jsr cls
         jsr showdir
         jsr $ffe4
         beq *-3
         cmp #$20
         bne *-7
         jmp menu

;---------------------------------------

f8       ldx #$27
         lda #$01
d2       sta $db98,x
         dex
         bpl d2
         lda #$24
         sta $0798
         lda #$3a
         sta $0799
         ldx #$26
         jsr input
         lda dlug
         bne d3
         lda #$2a
         sta tbuf
d3       ldx #$0f
d4       lda tbuf,x
         sta name+2,x
         dex
         bpl d4
         jmp d1

;---------------------------------------

rere     lda #$00
         sta $d011
         ldx #<scr
         ldy #>scr
         jsr print
         lda #$1b
         sta $d011
         jsr rdir
         lda buf+$1d
         cmp #$ff
         bne p45
         jmp menu
p45      jsr phead
         ldx #$90
         lda #$00
p32      sta tn-1,x
         dex
         bne p32
         lda #$00
         sta pokna
         sta py

         lda buf+$1d
         cmp #$0d
         bcc o2
         lda #$0c
o2       sta ma
         lda buf+$1d
         sec
         sbc #$0c
         bcs o1
         lda #$00
o1       sta my

rob3     ldx pokna
         jsr prt
rob1     lda py
         jsr zazn
rob2     jsr $ffe4
         beq rob2
         ldx #$04
p36      cmp tkod,x
         beq skocz
         dex
         bpl p36
         jmp rob2
skocz    txa
         asl a
         tax
         lda tskok,x
         sta jum
         inx
         lda tskok,x
         sta jum+1
         jmp $1000
jum      = *-2

;---------------------------------------

tkod     .byte $91,$11,$20,$0d,$5f

;---------------------------------------

tskok    .word up,down,spc,ret,rere

;---------------------------------------

up       lda pokna
         bne r1
         lda py
         bne r2
         jmp rob2
r1       lda py
         bne r2
         dec pokna
         jmp rob3
r2       lda py
         jsr zazn
         dec py
         jmp rob1

;---------------------------------------

down     lda pokna
         cmp my
         bne r3
         lda py
         cmp ma
         bne r5
         jmp rob2
r3       lda py
         cmp #$0c
         beq r4
r5       lda py
         jsr zazn
         inc py
         jmp rob1
r4       inc pokna
         jmp rob3

;---------------------------------------

spc      jsr pnames
         bcs zero
         inc $d020  ;tu wstawic co ma
         jmp *-3    ;robic po wybraniu.
zero     jmp menu   ;nic nie wybrano

;---------------------------------------

ret      lda pokna
         clc
         adc py
         tax
         lda tn,x
         eor #$ff
         sta tn,x
         ldx pokna
         jsr prt
         lda py
         jsr zazn
         jmp down

;---------------------------------------

phead    ldx #$0f
p1       lda buf+1,x
         eor #$80
         sta $0429,x
         dex
         bpl p1
         ldx #$04
p2       lda buf+$13,x
         eor #$80
         sta $043a,x
         dex
         bpl p2
         lda buf+$1e
         jsr hexfnt
         stx $06b9
         sty $06b8
         lda buf+$1f
         jsr hexfnt
         stx $06b7
         rts

;---------------------------------------

prt      lda #$00
         sta licz
         stx dst
         stx licz2
         lda #$00
         sta dst+1
         asl dst
         rol dst+1
         asl dst
         rol dst+1
         asl dst
         rol dst+1
         asl dst
         rol dst+1
         asl dst
         rol dst+1
         lda dst
         clc
         adc #<buf
         sta dst
         lda dst+1
         adc #>buf
         sta dst+1
         lda dst
         clc
         adc #$20
         sta dst
         lda dst+1
         adc #$00
         sta dst+1
         lda #$79
         sta put
         lda #$04
         sta put+1
p7       ldy #$00
         lda (dst),y
         jsr hexfnt
         sty len+1
         stx len+2
         ldy #$01
         lda (dst),y
         jsr hexfnt
         stx len
         ldx #$02
p30      lda len,x
         cmp #$46
         bne pisz
         dex
         bpl p30
         rts

pisz     ldy #$00
         lda #$24
         sta (put),y
         iny
         lda len
         sta (put),y
         iny
         lda len+1
         sta (put),y
         iny
         lda len+2
         sta (put),y
         lda dst
         clc
         adc #$04
         sta dst
         lda dst+1
         adc #$00
         sta dst+1
         lda put
         clc
         adc #$05
         sta put
         lda put+1
         adc #$00
         sta put+1
         ldy #$00
p4       lda (dst),y
         cmp #$22
         beq last
         sta (put),y
         iny
         cpy #$10
         bne p4
         jmp p5
last     lda #$20
         sta (put),y
         iny
         cpy #$10
         bne last
p5       ldx licz2
         lda tn,x
         beq nie1
         ldy #$11
         lda #$59
         sta (put),y
         iny
         lda #$45
         sta (put),y
         iny
         lda #$53
         sta (put),y
         jmp pa
nie1     ldy #$11
         lda #$4e
         sta (put),y
         iny
         lda #$4f
         sta (put),y
         iny
         lda #$21
         sta (put),y
pa       lda put
         clc
         adc #$23
         sta put
         lda put+1
         adc #$00
         sta put+1
         lda dst
         clc
         adc #$1c
         sta dst
         lda dst+1
         adc #$00
         sta dst+1
         inc licz2
         inc licz
         lda licz
         cmp #$0d
         beq p6
         jmp p7
p6       rts

;---------------------------------------

hexfnt   tay
         and #%00001111
         tax
         lda tabela,x
         tax
         tya
         lsr a
         lsr a
         lsr a
         lsr a
         tay
         lda tabela,y
         tay
         rts

tabela   .text "0123456789abcdef"

;---------------------------------------

rdir     lda device
         jsr $ffb1
         lda #$6f
         jsr $ff93
         lda #$55
         jsr $ffa8
         lda #$49
         jsr $ffa8
         lda #$0d
         jsr $ffa8
         jsr $ffae
         lda #<buf
         sta dst
         lda #>buf
         sta dst+1
         lda #$12
         ldx #<name
         ldy #>name
         jsr $ffbd
         ldy #$60
         lda device
         ldx #$08
         jsr $ffba
         jsr $ffc0
         ldx #$08
         jsr $ffc6
         ldx #$07
         jsr $ffcf
         dex
         bne *-4
         ldx #$18
omi2     jsr $ffcf
         jsr wstaw
         dex
         bne omi2
         lda dst
         clc
         adc #$08
         sta dst
         lda dst+1
         adc #$00
         sta dst+1
dir2     jsr $ffcf
         jsr wstaw
         ldx $90
         bne close
         ldx #$1f
omi5     jsr $ffcf
         jsr wstaw
         dex
         bne omi5
         jsr porzadek
         bcs close
         jmp dir2
close    lda #$08
         jsr $ffc3
         jsr $ffcc
         rts

;---------------------------------------

porzadek ldx #$19
         lda #$20
omi40    sta bufer,x
         dex
         bne omi40
         ldx #$1f
         lda #$00
omi31    sta bufer,x
         dex
         cpx #$19
         bne omi31
         lda dst
         sec
         sbc #$20
         sta dst
         lda dst+1
         sbc #$00
         sta dst+1
         ldy #$05
         lda (dst),y
         cmp #$42
         bne normal
         ldy #$03
         lda (dst),y
         sta buf+$1e
         iny
         lda (dst),y
         sta buf+$1f
         ldy #$1f
         lda #$00
omi30    sta (dst),y
         dey
         bpl omi30
         ldy #$00
         lda #$ff
         sta (dst),y
         iny
         sta (dst),y
         lda dst
         sec
         sbc #$20
         sta ile
         lda dst+1
         sbc #>buf
         sta ile+1
         lsr ile+1
         ror ile
         lsr ile+1
         ror ile
         lsr ile+1
         ror ile
         lsr ile+1
         ror ile
         lsr ile+1
         ror ile
         ldx ile
         dex
         stx buf+$1d
         sec
         rts

normal   ldx #$00
         ldy #$03
         lda (dst),y
         sta bufer,x
         iny
         inx
         lda (dst),y
         sta bufer,x
         inx
         iny
         lda #$20
         sta bufer,x
         inx
         lda #$22
         sta bufer,x
         inx
omi6     lda (dst),y
         cmp #$22
         beq omi43
         iny
         jmp omi6
omi43    lda #$00
         sta licz
omi13    inc licz
         iny
         lda (dst),y
         cmp #$22
         beq omi7
         sta bufer,x
         inx
         jmp omi13
omi7     sta bufer,x
         ldx #$15
         lda #$20
         sta bufer,x
omi10    iny
         lda (dst),y
         cmp #$20
         bne omi9
         jmp omi10
omi9     ldx #$16
         sta bufer,x
         iny
         inx
         lda (dst),y
         sta bufer,x
         iny
         inx
         lda (dst),y
         sta bufer,x
         lda licz
         inx
         inx
         sta bufer,x
         dec bufer,x
         ldy #$1f
omi14    lda bufer,y
         sta (dst),y
         dey
         bpl omi14
         lda dst
         clc
         adc #$20
         sta dst
         lda dst+1
         adc #$00
         sta dst+1
         clc
         rts

;---------------------------------------

wstaw    ldy #$00
         sta (dst),y
         sta tymcz
         inc dst
         bne omi1
         inc dst+1
omi1     lda tymcz
         rts

;---------------------------------------

print    stx dst
         sty dst+1
pr1      ldy #$00
         lda (dst),y
         beq exit
         jsr $ffd2
         inc dst
         bne pr1
         inc dst+1
         jmp pr1
exit     rts

;---------------------------------------

pnames   lda #<buf
         clc
         adc #$24
         sta dst
         lda #>buf
         adc #$00
         sta dst+1
         lda #<bnames
         sta put
         lda #>bnames
         sta put+1
         lda #$00
         sta l1
         sta cos
         sta ilewyb
         ldx buf+$1d
         inx
         stx l2
n2       ldx l1
         lda tn,x
         beq next
         inc ilewyb
         lda #$ff
         sta cos
         ldy #$00
k12      lda (dst),y
         cmp #$22
         beq jn
         sta (put),y
         iny
         cpy #$10
         bne k12
         jmp n3
jn       lda #$a0
         sta (put),y
         iny
         cpy #$10
         bne jn
n3       lda put
         clc
         adc #$10
         sta put
         lda put+1
         adc #$00
         sta put+1
next     lda dst
         clc
         adc #$20
         sta dst
         lda dst+1
         adc #$00
         sta dst+1
         inc l1
         lda l1
         cmp l2
         bne n2
         clc
         lda cos
         bne i1
         sec
i1       rts

;---------------------------------------

zazn     asl a
         tax
         lda alin,x
         sta put
         inx
         lda alin,x
         sta put+1
         ldy #$0f
p33      lda (put),y
         eor #$80
         sta (put),y
         dey
         bpl p33
         rts

;---------------------------------------

cls      jsr $e518
         lda #$02
         sta $d020
         lda #$00
         sta $d021
         rts

;---------------------------------------

showdir  lda #$01
         jsr $e536
         lda #$01
         ldx #<name
         ldy #>name
         jsr $ffbd
         ldy #$60
         lda #$08
         ldx #$08
         jsr $ffba
         jsr $ffc0
         ldx #$08
         jsr $ffc6
         jsr $ffcf
         jsr $ffcf
kir2     jsr $ffcf
         jsr $ffcf
         lda $90
         bne klose
         jsr $ffcf
         tax
         jsr $ffcf
         jsr $bdcd
         jsr $ab3b
kir1     jsr $ffcf
         jsr $ffd2
         bne kir1
         lda #$0d
         jsr $ffd2
         jmp kir2
klose    lda #$08
         jsr $ffc3
         jsr $ffcc
         ldx #<space
         ldy #>space
         jsr print
         rts

;---------------------------------------

input    stx leng
         lda #$00
         sta max
         sta pos
petla    ldy pos
         lda #$64
         sta okno,y
kjp3     jsr $ffe4
         beq kjp3
         ldy pos
         cmp #$14
         bne in3
         lda #$20
         sta tbuf,y
         sta okno,y
         jsr movl
         jmp petla
in3      cmp #$0d
         bne wrzuc
         lda pos
         sta dlug
         rts
wrzuc    sta tbuf,y
         and #$3f
         sta okno,y
         jsr movr
         jmp petla

;---------------------------------------
movr     inc pos
         lda pos
         cmp leng
         bne mov1
         dec pos
         lda #$ff
         sta max
mov1     rts

;---------------------------------------
movl     lda #$00
         sta max
         dec pos
         bpl movl1
         inc pos
movl1    rts

;---------------------------------------

max      .byte 0
pos      .byte 0
leng     .byte 0
tbuf     .text "                    "
         .text "                  "
dlug     .byte 0

device   .byte 0
name     .text "$:*               "
tymcz    .byte 0
licz     .byte 0
licz2    .byte 0
len      .byte 0,0,0
ile      .byte 0,0
py       .byte 0
pokna    .byte 0
my       .byte 0
ma       .byte 0
l1       .byte 0
l2       .byte 0
cos      .byte 0
ilewyb   .byte 0

;---------------------------------------

space    .byte $0d,$0d
         .text "press space"
         .byte 0

;---------------------------------------
bufer    .text "                "
         .text "        "
         .byte 0,0,0,0,0,0,0,0

;---------------------------------------

alin     .word $047e,$04a6,$04ce,$04f6
         .word $051e,$0546,$056e,$0596
         .word $05be,$05e6,$060e,$0636
         .word $065e

;---------------------------------------

tn       .byte 0,0,0,0,0,0,0,0
         .byte 0,0,0,0,0,0,0,0
         .byte 0,0,0,0,0,0,0,0
         .byte 0,0,0,0,0,0,0,0
         .byte 0,0,0,0,0,0,0,0
         .byte 0,0,0,0,0,0,0,0
         .byte 0,0,0,0,0,0,0,0
         .byte 0,0,0,0,0,0,0,0
         .byte 0,0,0,0,0,0,0,0
         .byte 0,0,0,0,0,0,0,0
         .byte 0,0,0,0,0,0,0,0
         .byte 0,0,0,0,0,0,0,0
         .byte 0,0,0,0,0,0,0,0
         .byte 0,0,0,0,0,0,0,0
         .byte 0,0,0,0,0,0,0,0
         .byte 0,0,0,0,0,0,0,0
         .byte 0,0,0,0,0,0,0,0
         .byte 0,0,0,0,0,0,0,0

;---------------------------------------

scr      .byte $93,$0e,$05,$b0,$60,$60
         .byte $60,$60,$60,$60,$60,$60
         .byte $60,$60,$60,$60,$60,$60
         .byte $60,$60,$b2,$60,$60,$60
         .byte $60,$60,$ae,$8d,$7d,$20
         .byte $20,$20,$20,$20,$20,$20
         .byte $20,$20,$20,$20,$20,$20
         .byte $20,$20,$20,$7d,$20,$20
         .byte $20,$20,$20,$7d,$20,$20
         .byte $20,$2d,$55,$53,$45,$20
         .byte $43,$55,$52,$53,$4f,$52
         .byte $53,$8d,$ab,$60,$60,$60
         .byte $60,$b2,$60,$60,$60,$60
         .byte $60,$60,$60,$60,$60,$60
         .byte $60,$b1,$60,$60,$60,$60
         .byte $b2,$b1,$60,$60,$ae,$90
         .byte $20,$05,$54,$4f,$20,$53
         .byte $45,$4c,$45,$43,$54,$8d
         .byte $7d,$20,$20,$20,$20,$7d
         .byte $20,$20,$20,$20,$20,$20
         .byte $20,$20,$20,$20,$20,$20
         .byte $20,$20,$20,$20,$7d,$20
         .byte $20,$20,$7d,$20,$41,$20
         .byte $46,$49,$4c,$45,$2e,$8d
         .byte $7d,$20,$20,$20,$20,$7d
         .byte $20,$20,$20,$20,$20,$20
         .byte $20,$20,$20,$20,$20,$20
         .byte $20,$20,$20,$20,$7d,$20
         .byte $20,$20,$7d,$2d,$55,$53
         .byte $45,$20,$52,$45,$54,$55
         .byte $52,$4e,$8d,$7d,$20,$20
         .byte $20,$20,$7d,$20,$20,$20
         .byte $20,$20,$20,$20,$20,$20
         .byte $20,$20,$20,$20,$20,$20
         .byte $20,$7d,$20,$20,$20,$7d
         .byte $20,$54,$4f,$20,$54,$4f
         .byte $47,$47,$4c,$45,$8d,$7d
         .byte $20,$20,$20,$20,$7d,$20
         .byte $20,$20,$20,$20,$20,$20
         .byte $20,$20,$20,$20,$20,$20
         .byte $20,$20,$20,$7d,$20,$20
         .byte $20,$7d,$20,$46,$49,$4c
         .byte $45,$20,$53,$54,$41,$54
         .byte $55,$53,$2e,$7d,$20,$20
         .byte $20,$20,$7d,$20,$20,$20
         .byte $20,$20,$20,$20,$20,$20
         .byte $20,$20,$20,$20,$20,$20
         .byte $20,$7d,$20,$20,$20,$7d
         .byte $2d,$55,$53,$45,$20,$53
         .byte $50,$41,$43,$45,$8d,$7d
         .byte $20,$20,$20,$20,$7d,$20
         .byte $20,$20,$20,$20,$20,$20
         .byte $20,$20,$20,$20,$20,$20
         .byte $20,$20,$20,$7d,$20,$20
         .byte $20,$7d,$20,$54,$4f,$20
         .byte $42,$45,$47,$49,$4e,$8d
         .byte $7d,$20,$20,$20,$20,$7d
         .byte $20,$20,$20,$20,$20,$20
         .byte $20,$20,$20,$20,$20,$20
         .byte $20,$20,$20,$20,$7d,$20
         .byte $20,$20,$7d,$20,$50,$41
         .byte $43,$4b,$49,$4e,$47,$2e
         .byte $8d,$7d,$20,$20,$20,$20
         .byte $7d,$20,$20,$20,$20,$20
         .byte $20,$20,$20,$20,$20,$20
         .byte $20,$20,$20,$20,$20,$7d
         .byte $20,$20,$20,$7d,$8d,$7d
         .byte $20,$20,$20,$20,$7d,$20
         .byte $20,$20,$20,$20,$20,$20
         .byte $20,$20,$20,$20,$20,$20
         .byte $20,$20,$20,$7d,$20,$20
         .byte $20,$7d,$8d,$7d,$20,$20
         .byte $20,$20,$7d,$20,$20,$20
         .byte $20,$20,$20,$20,$20,$20
         .byte $20,$20,$20,$20,$20,$20
         .byte $20,$7d,$20,$20,$20,$7d
         .byte $8d,$7d,$20,$20,$20,$20
         .byte $7d,$20,$20,$20,$20,$20
         .byte $20,$20,$20,$20,$20,$20
         .byte $20,$20,$20,$20,$20,$7d
         .byte $20,$20,$20,$7d,$8d,$7d
         .byte $20,$20,$20,$20,$7d,$20
         .byte $20,$20,$20,$20,$20,$20
         .byte $20,$20,$20,$20,$20,$20
         .byte $20,$20,$20,$7d,$20,$20
         .byte $20,$7d,$8d,$7d,$20,$20
         .byte $20,$20,$7d,$20,$20,$20
         .byte $20,$20,$20,$20,$20,$20
         .byte $20,$20,$20,$20,$20,$20
         .byte $20,$7d,$20,$20,$20,$7d
         .byte $8d,$ab,$60,$60,$60,$60
         .byte $b1,$60,$60,$60,$60,$60
         .byte $60,$60,$60,$60,$60,$60
         .byte $60,$b2,$60,$60,$60,$b1
         .byte $60,$60,$60,$bd,$8d,$7d
         .byte $42,$4c,$4f,$43,$4b,$53
         .byte $20,$46,$52,$45,$45,$3a
         .byte $20,$24,$20,$20,$20,$7d
         .byte $8d,$ad,$60,$60,$60,$60
         .byte $60,$60,$60,$60,$60,$60
         .byte $60,$60,$60,$60,$60,$60
         .byte $60,$bd,$00

;---------------------------------------
mtx      .byte $93,$0e,$97,$8d,$8d,$90
         .byte $20,$97,$20,$20,$20,$20
         .byte $20,$9b,$61,$20,$43,$4f
         .byte $4f,$4c,$20,$50,$41,$43
         .byte $4b,$45,$52,$20,$42,$59
         .byte $20,$2e,$2e,$2e,$2e,$2e
         .byte $2e,$2e,$2e,$2f,$2e,$2e
         .byte $2e,$2e,$8d,$97,$8d,$20
         .byte $20,$20,$20,$20,$20,$9a
         .byte $6c,$45,$56,$45,$4c,$20
         .byte $56,$45,$52,$53,$49,$4f
         .byte $4e,$20,$42,$59,$20,$2e
         .byte $2e,$2e,$2e,$2f,$2e,$2e
         .byte $2e,$2e,$2e,$2e,$2e,$8d
         .byte $97,$8d,$20,$20,$20,$20
         .byte $90,$20,$20,$99,$6d,$45
         .byte $4e,$55,$20,$53,$59,$53
         .byte $54,$45,$4d,$20,$42,$59
         .byte $20,$62,$52,$55,$53,$48
         .byte $2f,$65,$4c,$59,$53,$49
         .byte $55,$4d,$21,$8d,$97,$8d
         .byte $8d,$8d,$20,$66,$31,$20
         .byte $2d,$20,$62,$45,$47,$49
         .byte $4e,$20,$50,$41,$43,$4b
         .byte $49,$4e,$47,$8d,$8d,$20
         .byte $66,$33,$20,$2d,$20,$73
         .byte $4f,$4d,$45,$20,$55,$53
         .byte $45,$46,$55,$4c,$4c,$20
         .byte $49,$4e,$46,$4f,$53,$8d
         .byte $8d,$20,$66,$35,$20,$2d
         .byte $20,$64,$49,$53,$43,$20
         .byte $43,$4f,$4d,$4d,$41,$4e
         .byte $44,$53,$8d,$8d,$20,$66
         .byte $36,$20,$2d,$20,$73,$41
         .byte $56,$45,$20,$44,$45,$50
         .byte $41,$43,$4b,$45,$52,$8d
         .byte $8d,$20,$66,$37,$20,$2d
         .byte $20,$64,$49,$52,$45,$43
         .byte $54,$4f,$52,$59,$8d,$8d
         .byte $20,$66,$38,$20,$2d,$20
         .byte $63,$48,$41,$4e,$47,$45
         .byte $20,$44,$49,$52,$45,$43
         .byte $54,$4f,$52,$59,$20,$46
         .byte $49,$4c,$54,$45,$52,$00

;---------------------------------------

itx      .byte $93,$0e,$97,$20,$20,$6f
         .byte $48,$20,$59,$45,$41,$48
         .byte $21,$20,$79,$4f,$55,$27
         .byte $56,$45,$20,$43,$48,$4f
         .byte $4f,$53,$45,$4e,$20,$27
         .byte $98,$73,$4f,$4d,$45,$20
         .byte $49,$4e,$46,$4f,$53,$97
         .byte $27,$8d,$4f,$50,$54,$49
         .byte $4f,$4e,$2e,$2e,$2e,$20
         .byte $41,$4e,$44,$20,$57,$48
         .byte $41,$54,$20,$44,$4f,$20
         .byte $59,$4f,$55,$20,$45,$58
         .byte $50,$45,$43,$54,$20,$54
         .byte $4f,$20,$53,$45,$45,$8d
         .byte $48,$45,$52,$45,$3f,$3f
         .byte $20,$72,$45,$4d,$45,$4d
         .byte $42,$45,$52,$2c,$20,$49
         .byte $54,$27,$53,$20,$4a,$55
         .byte $53,$54,$20,$99,$41,$4e
         .byte $20,$45,$58,$41,$4d,$50
         .byte $4c,$45,$97,$20,$53,$4f
         .byte $44,$4f,$4e,$27,$54,$20
         .byte $46,$4f,$52,$47,$45,$54
         .byte $20,$54,$4f,$20,$49,$4e
         .byte $53,$54,$41,$4c,$4c,$20
         .byte $48,$45,$52,$45,$20,$53
         .byte $4f,$4d,$45,$20,$4e,$49
         .byte $43,$45,$8d,$54,$45,$58
         .byte $54,$53,$2e,$8d,$20,$20
         .byte $20,$20,$20,$20,$20,$20
         .byte $20,$20,$20,$20,$20,$20
         .byte $20,$20,$20,$20,$20,$20
         .byte $20,$20,$20,$20,$9a,$62
         .byte $52,$55,$53,$48,$97,$2f
         .byte $9b,$65,$4c,$59,$53,$49
         .byte $55,$4d,$8d,$97,$00

;---------------------------------------

